Допускается создание процедур Property Let, Property Set и Property Get с одним и тем же именем. Таким образом создается группа связанных процедур, работающих совместно. Имя, данное процедуре Property, не может использоваться в качестве имени процедур Sub и Function, переменой или определяемого пользователем типа данных.
Инструкция Property Let позволяет создать процедуру, которая задает значение свойства. Примером может служить процедура Property, которая создает свойство инвертирования точечного рисунка в форме. Ниже представлен синтаксис вызова процедуры Property Let :
Form1.Inverted = True
Реальная работа по инвертированию точечного рисунка в форме выполняется в процедуре Property Let:
Private IsInverted As Boolean Property Let Inverted(X As Boolean) IsInverted = X If IsInverted Then … (statements) Else (statements) End If End Property
Переменная уровня формы IsInverted содержит значение этого свойства. Если она описана как Private, пользователь может изменить ее только с помощью процедуры Property Let. Рекомендуется использовать имя, которое облегчает понимание того, что переменная использована для этого свойства.
Процедура Property Get свойства Inverted:
Property Get Inverted() As Boolean Inverted = IsInverted End Property
Процедуры-свойства упрощают выполнение программы одновременно с присвоением значения свойства. Они могут использоваться для выполнения следующих операций:
1. Определение значения свойства до того, как оно присвоено.
2. Присвоение свойства на основе нового значения.